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START CLIENT 
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RECEIVE INSTRUCTION TO 
CREATE COCLASS 
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Client Application 



Launch IDE and pass object 
model controller ID to Addln 
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Add-ln(SetNewCustomObiect 
Interfaces continued) 




IVBACoclassProjectState::AttachStateObject 
(VBComponent(VBA coclass), VBComponent 
(VBA designer), I Manage VBACoclassDesigner, 
VBProject, VBComponents) 



VBComponents::Add 
(vbext_ct_ClassModule) 



IIVBACoclassCreator::ComponentAdded 
(I Manage VBACoclassDesigner, VBProject, 
VBComponent(VBA coclass), 
Initial Instancing PropertyValue) 
(Info used in hook handlers) 



GeneratelnterfaceCode(IIDs) 
I 



IVBACodeGenerator:: 
Generate VBACode(l I D) 
for each I ID 



1 






VBACodeGenerator 



CATIDs 



VBComponent: :get_CodeModule 



CodeModule 
CodeModule: : I nsertLines(Code) 



FIG.-4C-1 
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The custom designer has an associated 
VBACoclassProjectState Object that holds 
the actual cache of custom project data 



AdviseOnVBEEvents(VBComponentsEvents, 
Com mand BarEve nts) 



VBComponentsEvents:: Item Added 



Events: 

1 . When user attempts to insert a second copy 
of the designer from the VBA Insert Menu, a Click 
handler will return TRUE to cancel the insertion. 



2. Also there are event handlers for ItemAdded, 
ItemRemoved, ItemRenamed, ItemSelected, 
Item Reloaded on VBComponentsEvents so 
Designer can call Addln to update its data 
structures used in hook handlers. 




Cache VB Project and 
VBComponents 



VBA IDE 




FIG..4C-2 FIG..4C 
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VBA Project Compilation & Save 1 1 / 27 



Designer 



The custom designer has an 
associated VBACoclassProjectState 
Object that holds the actual cache of 
custom project data 



S CommandBarButtonEvents::Click 




ShowDiskFileOr 
AlternateDialog() 



To File? 



no 



yes 



Programmatic Save 
-**| to File and then copy 
to alternate storage 



VARIANT FALSE 



I PersistStream : : Save 
(Saves AddDesPropPages, AggsBefore, AggsAfter, 
Instancing Property, Designer customizations 
in the Project File) 



Designer::DIIRegisterServer 



IDesignerRegistration::GetRegistrationlnfo 
(Unregister last build dll, streams custom registry info into Reglnfo, 
and inserts Designer Code , i.e. Select Cases for Public Creatable coclasses) 



Reglnfo 



Designer::DIIRegisterDesigner(Reglnfo) 



UpdateCustomRegistrySettings 



Registry 



I 

RemoveNonCreatableFlagslnTypeLibrary 
(for Public Creatable coclasses) 

' FIG..4D-1 
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VBE::FileMenu::Save,SaveAs t 
ExportFile,CloseProject,Make 



VARIANT TRUE 



ContinueCompile 
by programmatic call 



Save 

(Internal to VBE) 
i 



VBE;:Make 
(continue) 



VBE::Make 



ShowDIIFileDialog 

m I 



1 

Compile 

(Internal to VBE) 
I 



FIG..4D-2 
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VBA IDE 



i Click Open Project in File Menu 



ShowVBAProjectFileDiaiog 
I 



CoCreatelnstance() 



IPersistStream::Load 
(Loads AddDesPropPages, AggsBefore, AggsAfter, 
Instancing Property, Designer customizations 
in the Project File into a temporary map keyed 
by the name of Public Createable coclasses) 



When the user selects deleting a project from the VBA IDE, the VBProjectsEvents:: 
Proj Item Removed handler in the Addin removes the project's custom settings in the 
data structures in the Addln, Also when the user inserts/deletes a designer into/from 
a project, or inserts/deletes a class into/from a project, the VBCommandBarEvents:: 
Click event handler in the Addln and designer, respectively, add to or delete from the 
data caches in the Addln and designer. 



FIG..4E-1 



FIG Z 4E-1 [ FIG.-4E-2 



FIG..4E 
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The custom designer has an 
associated VBACoclassProjectState 
Object that holds the actual cache of 
custom project data 



VBProjectsEvents::ProjltemAdded 



I 

Cache VBProject and 
VBComponents 



AdviseOnVBEEvents 

(VBComponentsEvents, 

CommandBarEvents) 



I VBACoclassProjectState:: 
AttachStateObject(VBComponent 
(VBA coclass), VBComponent 

(VBA designer), 
I ManageVBACoclassDesigner, 
VBProject, VBComponents) 



FIG-4E-2 M 



I VBACoclassProjectState:: 
InitializeLoadedVBA 
CoclassProject 



I 

Puts AddDesPropPages, AggsBefore, 
AggsAfter, Instancing Property, Designer 
customizations, etc from temporary map 
into the Additions map which is keyed by 
the lUnknown pointer of the 
coclasses in the project. 



IIVBACoclassCreator::ComponentAdded 
(I ManageVBACoclassDesigner, VBProject, 
VBComponent(VBA coclass), 



Add-In 



Initiallnstancing PropertyValue) 
(Info used in hook handlers) 
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LAUNCH CLIENT 
APPLICATION 



RECEIVE INSTRUCTION TO 
INSTANTIATE COCLASS 



LOAD CLASS FACTORY 
OBJECT 



CREATE WRAPPER 
OBJECT 



ADD OBJECTS TO BE 
AGGREGATED FIRST 



CREATE NEW COCLASS 



PUT REFERENCE TO 
WRAPPER OBJECT IN NEW 
COCLASS 



ADD OBJECTS TO BE 
AGGREGATED LAST 



RETURN REFERENCE TO 
WRAPPER OBJECT 
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VBA Object Instantiation 
VBACoclassWrapperObj::FinalConstruct 



Client 



DIIGetClassObject caches the Coclass 
CLSID and returns the class factory 
for the Wrapper object. 



CoCreatelnstance 



(CoclassCLSID) 



1 1 





! FIG..6A 


FIG..6B 



FIG-6 



VBAWrapperObj 
(FinalConstruct) 



CoclassCLSID 



^DesClassFactoryProglD 
CoclassCLSID 



Registry 



AggsBeforeCLSIDs, 
""A^gAfteVcLsTDs"' 



1 



Registry 



CreateAggsBefore and 
AddToAggObjectVector 
I 



CoCreatelnstance() 



IDispatch::Querylnterface 
(ISymyxVbaClassFactory) 



ISymyxVbaClassFactory 



AddToAggObjectVector (VBACoclass) 



1 

AddCoclassToAggObjectVector and 

CreateAggsAfter and AddToAggObjectVector 
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Client 



VBACoclassWrapperObj 



Custom Designer Run Time 



Project DLL 



VBA Designer Object, 
Treat as a Class Factory 
(One per project) 



I SymyxVbaClassFactory : : 
Createlnstance 
(CoclassProgID) 



IDispatch 



IDispatch::put_TheContextObject 
(GetControllingUnknown) 



" 1 

Select Case(CoClassProglD) 
I 



CoCreatelnstanceQ 



Public Creatable 
VBA class 



FIG..6B 
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ATL Wrapper Object 



I Unknown 



IVBACoclass 
Wrapper: 
IDispatch 



o— 



Order of Creation 



IDefault:IDispatch O 
Nntf1:IDispatch O 
MntfN: I Dispatch O 

dispinterface ^ 
(default) u " 

llntfl: IDispatch O 
llntfN:IDispatch O 



IDefaultMDispatch 
llntfl MDispatch 
I IntfN: I Dispatch 



? 



VBACoclassWrapperObj 



dispinterface 
(default) O 



ISymyxVbaClass- 
Factory: O— 
IDispatch 



lUnknown 



i 

i 



Custom Designer 
Object(One per project) 



lUnknown 



AggregateBeforeObjects 
(each interface may be 
actually wrapped by a 
flyweight object) 



lUnknown 



Public Creatable VBA 
class (each interface 
may be wrapped by a 
flyweight object) 



lUnknown 



? 



AggregateAfterObjects 
(each interface may be 
wrapped by a flyweight 
object) 



FIG..7 
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IUnknown::Querylnterface 



IUnknown::AddRef 



IUnknown::Release 



I Dispatch : :GetTypel nf oCou nt 



I Dispatch : : GetType I nf o 



IDispatch::GetlDsOfNames 



IDispatch::lnvoke 



ICustomlnterface::Method1 



ICustomlnterface::Method2 



ICustomlnterface::MethodM 



IDefaultlnterface Q- 



1 1 




! FIG.-9A 


FIG.-9B 



FIG-9 



Coclass VbaCoclassWrapperObj(CVbaCoclassWrapper 
Obj:CNested Dispatch) The coclass(implemented in 
C Nested Dispatch) will hold a list of 
CFIyweightDispatch objects. 



FlyweightDispatch(An Instance is created for 
each nondefault (with respect to 
IVBACoclassWrapper) interface ). 



&Delegator_Querylnterface 



&Delegator_AddRef 



&Delegator_ReIease 



&Delegator_GetTypelnfoCou nt 



&Delegator_GetTypelnfo 



&DeIegator_GetlDsOfNames 



&Delegator_Jnvoke 



Entry Point 7 



Entry Point 8 



Entry Point N 



Custom VTable for 
Custom InterfaceO 



Assembler code in 
delegate method swaps 
the "this" pointer with the 
casted lUnknown pointer 
of the custom interface in 
the aggregated object. 



ICustomlnterface: 
Methodl 



Note::A preprocessor directive can be added to an 
ATL Object that prevents creating the Nested 
Dispatch mechanisms when the object has been 
aggregated otherwise there will be a two Nested 
Dispatch implementations for that object, one by 
VbaWrapObj and one by the object itself. 



FIG..9A 
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I Unknown 



CFIyweightDispatch::Querylnterface 



CFIyweightDispatch::AddRef 



CFIyweightDispatch::Release 



CFIyweightDispatch::GetTypelnfoCount 



CFIyweightDispatch::GetTypelnfo 



CFIyweightDispatch::GetlDsOfNames 



CFIyweightDispatch::lnvoke 



ITypelnfo::GetTypelnfoCount 



ITypelnfo::GetTypelnfo 



ITypelnfo::GetldsOfNames 



ITypelnfo::lnvoke 



ITypelnfo for 
ICustomlnterface 



o 



lUnknown 



ITypelnfo Implementation for 
ICustomlnterface 



lUnknown 



o 





dispinterface^ 
(default) U 

K 






Aggregated Object 


ICustomlnterface: 
IDispatch 



FIG..9B 
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